Hip Tissue/Hip Tissue - Disc 1.iso/pc/dir/clothed.dxr/00046_quit.ls

Text File | 1997-11-06 | 2.3 KB | 55 lines

property UpCM, DownCM, UpNum, DownNum, button_active

on mouseDown me
  set the member of sprite the spriteNum of me to member the DownCM of me
  set the button_active of me to 1
end

on mouseUp me
  set the member of sprite the spriteNum of me to member the UpCM of me
  set the button_active of me to 0
  go(1, "quit")
end

on mouseEnter me
  if the button_active of me then
    set the member of sprite the spriteNum of me to member the DownCM of me
  end if
end

on mouseLeave me
  if the button_active of me then
    set the member of sprite the spriteNum of me to member the UpCM of me
  end if
end

on mouseUpOutSide me
  set the button_active of me to 0
end

on beginSprite me
  set the UpCM of me to the member of sprite the spriteNum of me
  set the UpNum of me to the number of member UpCM
  set the DownNum of me to the number of member DownCM
  set the button_active of me to 0
end

on endSprite me
end

on getPropertyDescriptionList
  if the currentSpriteNum = 0 then
    set memdefault to 0
  else
    set memref to the member of sprite the currentSpriteNum
    set castLibNum to the castLibNum of memref
    set memdefault to member (the memberNum of member memref + 1) of castLib castLibNum
  end if
  set p_list to [#DownCM: [#comment: "ﾃ｢ﾃｼﾃ‡ﾂｵﾃ‡ﾃｽﾃｨﾃ崚ｫ窶佚‡ﾃε韻ﾃ嘉…ﾃ…[ﾃ姥:", #format: #graphic, #default: memdefault]]
  return p_list
end

on getBehaviorDescription
  return "ﾃ厭ﾃ右ﾃ厩ﾃ榎ﾃ韻ﾃ嘉ｬﾃ運ﾃ‡ﾃε ﾂ ﾃｭuﾃ‡窶ｦﾃｮﾃｽﾃ｢ﾃｻﾃ‡ﾂｵﾃ②ﾃｩﾂｩﾃｬﾃ†ﾃｬIﾃ‡窶ｦﾃ穎ﾃ韻ﾃ嘉｢ﾃ韻ﾃ曳ﾃ‡ﾃ敕‡ﾃ暗益ﾃ叡ﾃ鰻ﾃ嘉姪閲ﾃ運ﾃ嘉ｬﾃ‡ﾃ静‡ﾂｵﾃ‡ﾆ津厩ﾃ益ﾃ嘉｢ﾃ韻ﾃ曳ﾃ‡ﾂ敕ｨﾃ„ﾃｮﾂｦﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾃ敕③ﾃ厩ﾃ益ﾃ嘉｢ﾃ韻ﾃ曳ﾃ‡窶ｦﾃｧﾂｼﾃｨﾃ｢ﾃ‡窶ｦﾃ､ﾃ妥‡ﾃ凝ｬﾃｱﾃ‡ﾆ津‡ﾃﾃ‡ﾃ催‡ﾃｽﾃ鵜ﾃ嘉嘉厩ﾃ曳ﾃ嘉…ﾃ嘉ｬﾃ頴ﾃ…[ﾃ‡邃｢ﾃ②ﾃ閲ﾃ運ﾃ嘉ｬﾃ‡ﾃε…uﾃｯWﾃｨﾃ„ﾃ…vﾃｨﾃ崚ｫ窶佚‡ﾂ敕ｩﾂｶﾃ‡ﾃ敕‡窶｡ﾃ‡ﾃε‡ﾃ静‡窶ｺﾃ‡ﾂｻﾃ‡ﾅｽﾃ‡ﾃ催‡窶ｹﾃ‡ﾃ敕③ﾃ益ﾃ叡ﾃ鰻ﾃ嘉姪閲ﾃ運ﾃ嘉ｬﾃ‡ﾃ静‡ﾂｵﾃ‡ﾆ津ｬﾃ†ﾃｧﾃ湘‡ﾅｽﾃ‡ﾃｾﾃ‡ﾃｽﾃ‡ﾂ｢ﾃ厩ﾃ益ﾃ嘉｢ﾃ韻ﾃ曳ﾃ‡窶ｦﾃ栄ﾃ嘉｢ﾃ叡ﾃ碓ﾃ‡ﾂｵﾃ‡ﾆ津ｩgﾃｳpﾃ‡ﾂｵﾃ‡ﾆ津‡ﾂ催‡ﾃｦﾃ‡ﾅｽﾃ‡ﾂ｢ﾃ③" & RETURN & RETURN & "ﾃ⒃ﾃ英ﾃ嘉｢ﾃ嘉…ﾃ…[ﾃ運ﾃ⒄" & RETURN & "窶｢ ﾃ｢ﾃｼﾃ‡ﾂｵﾃ‡ﾃｽﾃｨﾃ崚ｫ窶佚‡ﾃε韻ﾃ嘉…ﾃ…[ﾃ姥: ﾃ閲ﾃ運ﾃ嘉ｬﾃ‡邃｢ﾃ｢ﾃｼﾃ‡ﾅｽﾃ‡ﾃ催‡ﾃｽﾃｨﾃ崚ｫ窶佚‡ﾃε韻ﾃ嘉…ﾃ…[ﾃ姥ﾃ‡ﾃ静‡ﾂｻﾃ‡ﾃ暗詠ﾃ叡ﾃ曳ﾃ厭ﾃ叡ﾃ益ﾃ鵜ﾃ嘉嘉厩ﾃ曳ﾃ嘉…ﾃ嘉ｬﾃ頴ﾃ…[ﾃ‡ﾂ敕ｫIﾃｫﾂ敕③ﾃ映ﾃ液ﾃ羽ﾃ嘉｣ﾃ曳ﾃ‡ﾃ陛②ﾃ厩ﾃ益ﾃ嘉｢ﾃ韻ﾃ曳ﾃ‡窶ｦﾃ･ﾂｪﾃｧ窶ｺﾃ､ﾃ妥‡ﾃ凝ｬﾃｱﾃ‡ﾆ津‡ﾃﾃ‡ﾃ催‡ﾆ津‡ﾂ｢ﾃ‡ﾃ暗鵜ﾃ嘉嘉厩ﾃ曳ﾃ嘉…ﾃ嘉ｬﾃ頴ﾃ…[ﾃ‡ﾃεｳﾃ療⑿ﾃ鵜ﾃ嘉嘉厩ﾃ曳ﾃｮ窶佚ｧﾃœ + 1ﾃ⒀ﾃ‡ﾃε鵜ﾃ嘉嘉厩ﾃ曳ﾃ嘉…ﾃ嘉ｬﾃ頴ﾃ…["
end